inherited FrmCollectionsAffecte: TFrmCollectionsAffecte Left = 320 Top = 85 Width = 550 Height = 486 HelpContext = 1030 Caption = 'FrmCollectionsAffecte' OldCreateOrder = True PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter [0] Left = 233 Top = 0 Width = 5 Height = 407 end inherited sb: TTBXStatusBar Top = 433 Width = 542 end object TBXDock1: TTBXDock [2] Left = 0 Top = 407 Width = 542 Height = 26 Position = dpBottom object TBToolbar1: TTBXToolbar Left = 0 Top = 0 Align = alBottom BorderStyle = bsNone Caption = 'TBToolbar' DockMode = dmCannotFloatOrChangeDocks DockPos = 152 DragHandleStyle = dhNone FullSize = True Images = ImageListSmall TabOrder = 0 object TBItem2: TTBXItem Action = ActionValider DisplayMode = nbdmImageAndText end object TBItem3: TTBXItem Action = ActionCancel DisplayMode = nbdmImageAndText end object TBSeparatorItem1: TTBXSeparatorItem end object TBItem1: TTBXItem Action = ActionRenumeroter DisplayMode = nbdmImageAndText end object TBXSeparatorItem1: TTBXSeparatorItem end object TBXItem1: TTBXItem Action = ActionAide DisplayMode = nbdmImageAndText end object TBControlItem1: TTBControlItem Control = ImgChaine end object ImgChaine: TImage Left = 295 Top = 4 Width = 7 Height = 14 AutoSize = True Picture.Data = {} Visible = False end end end object cxGridCollections: TcxGrid [3] Left = 0 Top = 0 Width = 233 Height = 407 Align = alLeft TabOrder = 2 object cxGridCollectionsDBTableView: TcxGridDBTableView OnDragDrop = cxGridCollectionsDBTableViewDragDrop OnDragOver = cxGridCollectionsDBTableViewDragOver NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsCollection DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsBehavior.CellHints = True OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnHiding = True OptionsCustomize.ColumnHidingOnGrouping = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Editing = False OptionsData.Inserting = False OptionsSelection.CellSelect = False OptionsView.ColumnAutoWidth = True OptionsView.GroupByBox = False Styles.StyleSheet = dtmSession.cxGridTableViewStyleSheet end object cxGridCollectionsLevel: TcxGridLevel GridView = cxGridCollectionsDBTableView end end object cxGrid: TcxGrid [4] Left = 238 Top = 0 Width = 304 Height = 407 Align = alClient TabOrder = 3 object cxGridDBTableView: TcxGridDBTableView DragMode = dmAutomatic OnMouseDown = cxGridDBTableViewMouseDown NavigatorButtons.ConfirmDelete = False OnCellClick = cxGridDBTableViewCellClick DataController.DataSource = dsFilms DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsData.Appending = True OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Editing = False OptionsData.Inserting = False OptionsSelection.CellSelect = False OptionsSelection.MultiSelect = True OptionsView.GroupByBox = False Styles.StyleSheet = dtmSession.cxGridTableViewStyleSheetAlternate end object cxGridLevel: TcxGridLevel GridView = cxGridDBTableView end end inherited aclFiche: TActionList object ActionRenumeroter: TAction Caption = 'Renum'#233'roter' ImageIndex = 21 OnExecute = ActionRenumeroterExecute OnUpdate = ActionRenumeroterUpdate end object ActionCancel: TAction Caption = 'Abandonner' ImageIndex = 0 OnExecute = ActionCancelExecute end object ActionValider: TAction Caption = 'Valider' ImageIndex = 1 OnExecute = ActionValiderExecute end object ActionPersonnaliserColonnes: TAction Caption = 'Personnaliser colonnes' OnExecute = ActionPersonnaliserColonnesExecute end end object qryFiche: TIBQuery Database = dtmSession.IBDatabase BufferChunks = 1000 CachedUpdates = False Left = 160 Top = 144 end object dsCollection: TDataSource DataSet = memCollections Left = 24 Top = 264 end object qryCollection: TIBQuery Database = dtmSession.IBDatabase BufferChunks = 1000 CachedUpdates = False Left = 24 Top = 304 end object memCollections: TdxMemData Indexes = <> SortOptions = [] AfterScroll = memCollectionsAfterScroll Left = 96 Top = 304 end object cdFilms: TClientDataSet Aggregates = <> Params = <> ProviderName = 'ProviderFilms' Left = 320 Top = 112 end object ProviderFilms: TDataSetProvider BeforeUpdateRecord = ProviderFilmsBeforeUpdateRecord Left = 320 Top = 168 end object dsFilms: TDataSource DataSet = cdFilms Left = 328 Top = 352 end object PopupMenuCollections: TPopupMenu Left = 456 Top = 200 object Personnalisercolonnes2: TMenuItem Action = ActionPersonnaliserColonnes end end end